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APPENDIX A 
PROCESS DESIGN LANGUAGE 


The program control and data flow for the IP, MP, and OP is most 
vividly depicted in Section 2, Hierarchical Figures, Section 5, Subprogram 
Logic Tables, and Appendix B, HIPO diagrams. The following PDL segments, 
listed alphabetically by module name, use natural language to define 
the operations on data from a logical viewpoint. The so-called outer 
syntax of PDL is defined by a few PDL keywords such as PROC, ENDPROC, 

IF, ELSE, ENDIF, CASE, ENDCASE, DOWHILE, DOUNTIL, and ENDDO, which have 
the same meaning as the equivalent PARAFOR statements. A tabular typo- 
graphical format is used to segment and set-off related operations. 


Then PDL segments are the most explicit program documentation other 


than the code itself. PDL should be referenced with the PARAFOR source 
code to gain a detailed understanding of program operation. 
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PRUVECTS AGT MEMSER:I DAYTIM DATES 
LISnAnyYs USM LEVELS 01-00 TiMc: 
TYPE: PiL USERID: XAZweD PAGE? 
START 
COW mete enn) nt 8 nt 5 et et 5 -——-+-- 0 ee + 7 - 
L PnGEs DAYTIM <ip-RGCESURE 10 GET DATE AND TIME> 
S) RUN TIMt (DAYS sSECS <MACRO TO ACCESS SYSTEM CLOCKS 
&! FORMAT VATE TCS =<wiMVYODSYY> 
et FORMAT TIME TUS=<nhMM> 
oe RETURN 
1 =NKOWREC 
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PROJECT: AGT SEMBER: SAASYN 
LIBRARY: DSM LEVEL: * Of.12 
ae TYPE: PDL GSERID: C120490 
ZOL tent nr ta 8 rt rn a nt 5 tH = = FE - —— 
PROC: SAASYN <PROCESS ASYNCHRONOUS COMMANDS> 
Es WRITE NAME S.TINE OF ASENCH CARD TO BE EXEC NOW 
3 TEST FOR UNEECOGNIZED CARS 
3) CAS EENTAY (XSEVNT (X*) ) <THE TYPE OF ASYNCHYPONOUS EVENT 
25 OF THE XTN THAT HAS" JUST COME 
33 OFF THE PEL> 
3 CASE (DATA/2 ARAN /O?PTION/SELECT) 
5 RUN GDIP TO REVISE SCI TYYE COMMONS 
3 CASE (PAILURE/RECOVERY/DEGRADATIGN/DEGSADATION RECOVERY — SL/TL) 
5 RUN GDIP TO REVISS DATA ASSOCIATED WITH FAILURE 
5 RUN SAPAIL 
3 CASE (PLAGS) 
5} RUN SAFLAG <RESET DEBUG FPLAGS> 
3 CASE (TEXT) 
5 READ & WRITE ONE TEXT CARD 
3 CASE(DEMAND CKPT) 
5 RUN CKET 
3 CASE (END OF DECK/STOP) 
5 COSVERT CURSENT ASYNCH xTR INTO STOP XTN 
5 SCHEDULE THIS SIO? XTN 
Z Be ote uL TANEOUS TRIP ARRIVALS) 
ZUK 
u eee TRIP ARRIVING SIMULTANEOUSLY 
iT GET TRIDP XTN 
7 READ ENG DATA (DESTINATION, SIZE) 
SET ORIGIN TO STATION SEING SIMULATED 
SET ARRIVAL TIME TO CLOCK 
E, RUN SATORG 
5 ENDDO 
z CASE (SIXULTANEOUS VEH ARRIVALS) 
FOR 
u RACH VEY ARSIVING SIMULTANEOUSLY 
5 DO 
Ti GET VEH XTN 
7 REMD UE DATA (NEXT STOP, DIVERT TO STORE, SINK, ROUTE, NPASS,TRLEY 
7 RUN SAVORG 
5 ENDDO 
3 Seas” Ee), 
5 Where INDEX TEST CARDS TO INDEX FILE 
3 CASEELS= 
5 RUN ERROR ("NOT RECOGNIZED*) 
3 ENDCASE 
3 READ IN NEXT COMMAND CARD 
3 SET PFLAG INDICATING THIS PILE USED (FOR INDEX PROCESSING) 
: Beocie Dube NEXT ASYNCH EVENT <PROM COMMAND CARD> 
4 2RU 
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PROJECT: AGT MEMBER: SACK3 
LI3RARY: DSé LEVEL: -.01202 
TYPE: PDL USERID: C120896 
tt a ta 83 rt a at = 85 a tt = = = § = 
PROC SACKR <CHZCKDOINT AND SESTART PROCESSING > 
INITIALIZE KOUTINE WITH STARTING ADDRESS AND LEYGTH OF ALL THE 
COMMON ARSAS DHAT ARE TO 3E WRITTEN AL CHECKBOINT OB RESTORED 
AT SESTART 
SACKPT <PERPORY SYSTEM CHECAPOLITING> 
DS“ CHECKAPOINTING IS PERFORMED TO SAVE TYZ STATUS OP A SI¥- 
ULATION SXPERIMENT AT ANY POINT DURING THE SI4ULATION PON. 
CHECHPOLNTIUG CAN OCCUR AT SEEIODIC INTERVALS Of VIA AN ASY3- 
CHRONGUS DATA REQUEST. THE CHECKPGINT DATA CAN SZ USED TO R2- 
STAXT THE SIMULATIOS BY REINITIALIZTION OF SYSTEM STATUS AS 
SAVED 3Y THE CHECXPOLNT. IN OXDER TG ALLOW THIS CAPABILITY 
CHECKPOINT SAVES THE STATUS OF ALL DATA RELATED TO TRANSACTION 
MANAGEM2ZNT, STATION LINK, VEHICLE, TRIOS & SAMPLING. THE 
ADDRESS OF THIS DaTA IS RECORDED FOR CHECKPOINTING DURING 
SYSTEM INITIALIZATION. PSE ADDRESS OF TEE CHECKSOINT/SESTART AREA 
OLTAINZD DUZING SYSTEM INITALIZATION BY PROGAH SACKB.> 
ARITZ CHECKPOINT RECORD TO PILE 
SAREST <PERFORM SYSTEM RESTART 
<SYSTEM RESTART IS DERFOSMED WHEN A RESTART COMMAND IS RECOGNIZED 
DURING SYSTEM I¥ITIALIZATION. THE RESTAET COMMAND MUST 3E THE 
PIPRST ASYSNCTBONOUS DATA INDUT TO A SIMULATION FUN. SAR=ST 
REINITIALIZES THE SIMULATION FOR RESUMPTION OF A PREVIOUS SIm- 
ULATION EXPERINENT IN WHICH A CHECXDOINT OF SYSTEY STATUS WAS 
PERFORMED .> 
DO <READ CHECKPOLST FILE TO DESIRED TIME> 
READ CHECSPOLNT RECORD 
UNTIL 
TIMNE=RESTART TIME REQUESTED 
ENDDO 
O <REPOSITION THIP PILZ 
READ THI? PILE 
UNTIL <PILE REPOSITIONED PROPERLY>_ 
TIME OF RCD GT TINE OF CKPT & ORIGIN OP TRIP = STSIM 
END DO 
FOR 
THREE POTENTIAL VEHICLE ARRIVAL SOUACES (I) 
DO <REPOSITIOY VEHICLE FILE> 
READ VEHICLE PILE (Tr) 
ONTIL <PILE REDOSITIONED PROPERLY> 
TL“E OF RCD GT TIME OF CKrT 
ENDvO 
DU <REPOSITION RUNTIME 2ILE> 
READ RUNTIME PILE HEADES KECORD & ASSOCIATED FOLLOWERS 
UITIL <PILE REPOSITIONZD 2PROPERLY> 
TIME OF RCD GI PIME OF CKPT 
ENDDO 
S=T FLAG TO INDXCATE WHICH MEMBER t 
SCRATC4 OLD TRIP, VEX G ASYNCH XTNS & SCHEDULE NEW ONES 
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PROC SADADU SKINITIALI Ze 


[INPUT AKEA ADURESSES ANY MESSAGE CGMMGNS> 


AINIVIAL 2 cE -GUTINE WITH STARTING ADDRESSES CF INFUT CUMMONS €& LENGTH 


SAINOTA 


WEA SINARY SYSTEM DATA INTO INPUT COMMUNS 
SoT VALUCS IN SCAMSG COMMUN 
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Goes | SNS Ore Mt. DATA UCESG re RPE «ES. FEADBT EMEDIA TELY 
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MURYC(TYPS CF ACTIViTY) 


GASSES rAREURE) 
CASE ENTAYCFATILUKE LOCATiGiN) 
CASe (ENTRY) 


SLENT(SL*¥)¢= <MARK ENTRY JF SL* AS SLUCKEL> 
CASE (EXIT} 
SLIERT TOSkis i s=1 <MARK EXIT OF SL¥* AS BLOCKED> 
ENOC ASE 
GASECSL FAILURE RECOVER Y) 
CASE ENTKY(RE COVERY LOCATICN) 
GAS & (ENTRY > 
SLENT(SL*®}5=0 <MARK ENTRY GF SL¥ AS ACTIVE> 
RUN SosrhrAC CSL * sUlSTREAM) <TRY TU GEF VEHICLES MUVING UfFSCTFREAM 
OF SL*+*> 
GAS Ete x DT.) 
SPECS wes) s= 0 <MARK EXIT GF SL*¥ AS ACTIVE> 
RUM SUPMAC( LCL *,SELFP ) <TRY TO GOT VEHICLES MOVING ON GL¥> 


=ENOCASE 


CaASE( SL DEGRAVE/SDEGRADE RECOVERY) 
SLPRENT( LL) SHENEW FENALTY FACTUR <REVISES TRAV VLELAY FACT ON SLx> 


EVESiE ee EAM ee > 
TLe=AFAIL (2) 
<TL FAILURESEALLURE RKECOVERY/UEGRADCDE/SOGEGRADE RECOVERY > 


ie 
FAILURE RLCOVERY 
TREN 
KUN SUPMAC(CTIL*®) <TRY TO GOT TriPS MUVING UPSTREAM 
OF TL*> 
BN Oo 
SOD US 
ENDPROC 
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PROJECT: AGT MEMBER: SAPINS 
LIBRARY: DSM LEVEL:. 01.02 

TYPE: DDL USERTD: €120496 
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PROS SAPINS Sereee 
WELTE REPORT dE 
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EXNDPROC 
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Fae 
EE talcbll eo bMS Tekan UT HANLL ER INTERFACE 
Meu Mec Sihert SUA TUS “AREA A sore SSeS MSSARTSA > 
<AUCGRe SS oF AREA TO SBE INGTIALIZED FROM) INPUT PXOCESSGR DATA 
LCSEMTAINEDC IN AGT.STRUCeSYSTEM & ADDRESS GF THRE AncA CONTAINING 
ALL MOSEL FRUCESSORN VATA wHIChH MUST GE CHECKEOINTED UR KE 
MiNGelIeAe Lek Oy iN! The CaSe. GF AVRESTART REGUEST>D 
RLAD ASYACHRUNGUS DATA iNSUT HEADER 
Ive toy Shes Ne STAR NEGU ERE CS 
HEAVER SKEST 
THEN <RESTART SIMULATION FRUM A CHECKPOINT> 
RUN SAGESY <PERFOAM SYSTEM RESTART>D 
REAL NEXT ASYXCHRONGUS CATA INPUT HEADER 
TLSe <PoRFORM INITIALIZATION OF SIMULATION EXPERIMENTS 


INITIALIZE SYSTEM CHARACTERISTICS €&€ ERROR ROUTINE INTERFACE<SANDT A> 


LNETIALIZeG TRANSACTION CATA <SANKEND 

LDV PLALEZS FUTURE SVENTS List <SANFEL> 
LPeLTIALAZe STATION &© TRIP. LINK MOVELS <SANMULD 
OSG eabe itt AL LAS SYSTEM -CEVEL EE VENTS> 


GET A SYSTEM TRANSACTION <XACTIVE> 

REAG FIRS! TRIP RECCRD 

XSEVATCAACTIVE) F=TRIP GRIGINATION EVENT 

RUN SAPFEL <SCHEDULE TRIP UDaIGINATICN TRANSACTIONS 


l- 

PrERIOCIC SAMPLING 
THEN 

GreT A bYSTEM TRANZTACTIGN 

KUN SAPFEL <SCHEDULE FIRST PERIODIC SAMPLE EVENT> 
ENDIF 


IF 

PERKLOSIC CHHCXPUINTING REQUIRED 
THEN 

GET A SYSTEM TRANSACTiON 

RUN SAPFEL <SCHEGULE FIRST PERIODIC SAMPLING EVENT> 
END tor 


FOR 
THREE PUTENTIAL VEHICLE ARRIVAL SCURCES 
DG <fCHEDLLE FIST TRIP ARRIVAL> 
IF 
SOUKCE 1S REGUIKED 
THtN 
CET A SYSTEM TRANSACTION <XACTIVED 
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SIGs oANGw AEMBERS SAINIT yA 6 
Ai Yie esi HS yisaers OlelsU YW UME 8 
: Pow UJSERLOS C1lLZ0490 PAGr: 
| —=-+---- _—---+ —-- 5 -- 4+ - 4 - a - 5 4 8 Ht — - 7- 
READ cINKSF VEHICLE RECORD 
NSEVNTCXACTIVE) S=VERICLE GRIGINATION EVENT 
UN SAPFEL <SCHEUDULE VEHICLE OKLGINATION TRANSACTION> 
SN UOVE 
E°.DOUU 
zivOvd 


YevaTS INDEX FILE <sAUPTX> 


iRST ASYACHKUNOUS SIM INFUT> 
GIT A SYSTEM TRANSACTION <XACTIVE> 
XLEVNT (XACTIVE ) SSASYNCHRONOUS DATA EVENT 
RUN SAPFEL <SCHEDULZE ASYNCHRONOUS EVENT> 
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ENE Le 


ENDER OC 
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n PrULsLA4AILN KARCRITECTUSRE MAIN PRUCELUURE FOR US4> 

S R4AEALN To PASSED CUNTRGL TU FEOIN SIMULAIOR EXECUTION AFYER THe 

ro ZSAXYPLING E CRECKRPOINE rick NAMES PASSED VIA THE PAKM FIELD 

o IN THO FARECULIGN FikQGCEOCURE HAS GDEEN SAVED SY PROGRAM SANTIA 

re) FUR LATER LSS IN UPDATING THE INDEA FILE BURING SYSTEM INITI AL— 

6 LZATiCN> 

5 RUN SAINIT <INITIALIZE SIMULATOH> 

2 wRribue 

=) ~xLOckS WITH CLUCK UNCRANGED<CLOUF 

3 bY 

= RUN SARFEL (GET NEKT EVENT OFF Feet (x%*)) 

> OGrOATE ‘CLECK, TO TFisMe CF TRIS:-EVENT 

S CASULCENTRYCXSEVNTOX*) ) <SYSTEM EVENT TYPL> 

=) CASE CVEHTRLE EVENT) 

v min SASETL <STATION LINK CONTROLS 

5 CASE(TSIP EVEMT) 

t RLN SAUCTL <TRIP LINK CUONTROLD 

S CASZCASYNCHYONGSS EVENT) 

¢ KUN SAASYN <READ ASYNCHRONOUS DATA> 

> CASE (SAMPLING FOR QUTFUT) 

4 XUN SASAMP <QOUTFUT SAMPLE> 

tu SCHECULcC NEXT SAMFPLING 


= CaSEC(PERICDIC CriECKPOINT) 
ra XUN SACKRT <TAKE & CHECKPOINT OF THE SYSTEM> 
1) SCHE CULE NEAT PERIOLIC CHECKPOINT 


S CASEC TRIP OR FTGINATION) 
1 RUN SATGRG & SATRSE <TRIP ARRIVES AT STATIUN> 
7 SCHELULT NEXT TRIP LR LGINATION 


5 CASE (VEHICLE CRIGINAT ION) 

7 RUN SAVURG & SAVRS <VEHTICLE ARRIVES AT STATIUND 
U SCHE GULE NEXT VEHICLEe GRIGINATIGN 

S CASE( SL PXOMPT) 

7 RUN SASPRM(SL¥e-LAG) <GET QUEULEL VEHICLES MGVING> 

if rSEE XTNOX*) THAT JUST CAME OFF THE FEL 


CALeEC TL PROMPT) 
é RUN SAUPAMOETL +) <GET GUEVED TRIPS MOVING> 
7 FREE XTNCOX*) THAT yuST CAME OFF THE FEL 


Cease(ecnt Vr SIM EVENT) 
if RUN SAF INM 
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TABLE SR ON TRE MULTI PLG THEKEAD LIST DEPENDING GPUN WRE THOR THE 
SCHEVUL, TIME IS WITHIN THE CURRENT CLOCK TABLE INTERVAL OR AT 
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S CfavIce IS DEMAND REUP <OvseESv = 1 OR 2> 
a THEN 
° CALL EICUMP TO CHANGF TRAIN LENGTH PROSAEILITY 
1s bDISTe TU CUMULATIVE FRO5e DISTe«<DVTLND> 
4 RNS TE: 
4 CALI Si cUMiP TO CHANGE TRIPE/SVEHICLE DIST. TQ CUMULATIVE 
9 PRCB.e DIST e¢<DVTRPLOD> 
4 CALL SICUMP TO CHANGE SIWK O1STe TU CUMULATIVE PROGe DIST. 
1G <TVSNKO> 
1 CSEER ARSE KEE REESE REE ARAKEKZROND CE SIV OGN2 ¥# 4S FESR AKER ERS KR KEE RRR ROKK, 
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GAee * 
Cs FUNCTICN = SIVDGN28) ITS INCLUDED BY GSM VEFI CEMAND GENERIATAIGINGTIO as. 
Us > GENERATE ANY ERROR MESSAGES FOUND FLY VEH GINERATION? * 
ror 
reall CESOK TYPES 
SD 
be 
ERROR FOUND 
THIEN 
CALL ERROR TO wRITE ©£&RROR MESSAGE 
CNOIF 
ENSDO 


Sere VS cS RRO FOUND 
Thin 


CALL EXRUR TO wRITE TERMINATION ¥YESSAGE AND 
END RUN 


ENGIS 


CS Res OR ROOK ROKR BKK RK REE NU OF SIL VUGN25 * 8K 7% EK KEK RE OR RK RHE KY 
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C/% SiGIENT NaMe - SIVDONG 2 
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CZ SNC TW LON = GINSRATE. VEHICLE FOR SCHEDULED, SERVICE POLICY x 
C/* ‘ 


ARr IVAL TIME AND ROUTE HAVE ALREADY bEEN DETERMINED 
<EVAR IV eDVROUUT> 


SE TERMINE TRAIN LENGTH FCGR RUUTE <OVTLNRE ROUTE )> 


NEXT SOP GHUSEN: Bye SWE ECH <OVNXITO=1> 


ITCH: VS GN <UVKTST>S 


= NEXT STOP 1S THE SIMULATED STATIGN 
<OVNXST=OVSTAN> 


BE Ss <SCAN ROUTE LISTS 
CGANY ROUTE tist <OvRSCH> 


If 
SIMULATED STATION iS ON THe ROUTE 
THEN 
NEXT STOP IFS SIMULATED STATIGN 
<OVNRAST = DOvSTAN> 
ENO 
ENDIF 
CALL SIGIAT TO DETERMINE THE NEXT INTE RARRIVAL. TIME 
QarOrm He Sewe CTE OG wOUuTs K<OvVARVR(RUUTE )> 
SCAN THE LIST OF NEXS ARRIVAL TIME SY KOUTE TO FIND 
Tai TIME SOF Tre NEXT Ski VAL <UVARIV> 


CS RRR RHR MK KAR RR KER RR RK MR EERE ER KEN OF SI VOGNGHR% 9% FRR KR SK RE RK TE KR, 
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Cl% xYS 
C7* FUNCTICN -— GENERATE VecHICLE FGR DEMAND KESPONSIVE SERVICE FULICY ¥*7 
Cs af 


CALL SMRSEL TO SAMPLE TRAI!! LENGTH D1ISt. <OVTLND> 

CALL SARNG FOR RANDOM NUMBER <ORAND O> 

PRAIN wILl STOP 1F RANDOM NGe 1S >= FC NEXT STOP =SIM*D STATION ) 
<UnANDO >= SOVSTPP> 


CALL SIGIAR FORONE XT. WAT <DVIAT™M> 
CS ORK FORK ROR ROK RoR RR OKO ND OF SIV UGNS %% 5K RHR MRK RRR KAKA KEK ARKH / 
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C/* xs 
C/¥* SEGMENT NAME -— SIVDGNO6 * 

C/* x7 
C/Y*® FUNCTIUN — USM GENERATION OF UNHOARD iKIPS ser 
C/* x/ 


CALL SMRSEL TO SAMPLE TRIPS/VEHICLE DISTe <CvVIRYPOD> 


OIWTRP = NOe TRIPS CHOSEN 
wWRILE 
TOTAL TRIPS <= NGe TRIPS CHOSEN AND 
PASSENGERS <= VEH CAPACITY 
<TOTAL TRIPS <= DvVTRP AND DvvPAS <= BvCAPS> 
CG 
CALL SMRSEL TO SAMPLE DESTINATION OITSTe <DVOCESO> 
CALL S#¥RSEL TG SAMFLE TRIP SIZt DISTe <OVRPASD > 
TOTAL TRIPS = TOTAL TRIPS + 1 
FKASSENGERKS = PASSENGERS + TRIP SIZE 
<COVVPAS = DVVFAS + DVTRIP> 
ZT NODA 


CS FORK RRS ROR OO RK RRR ERR END CF SIV OG ING 2% R56 A ER FOE OE EO OR OK OK OKO / 
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1 Cs * xy, 
lL C/* SEGMENT NAME — SIVOON? wy 
] Cs : ay 
lo oCv7* FUNCTICN -— WRITE VEHICLE GENESATICON SUMMARY REPURT #y 
1 Cs > Ry 
G IF 
1i SERVICE TS SCHEEUCED <OvSERV=5> 
9 Tizten | 
1:1 FOUTS = 1 
Leak WADE 
1S ROUTE <= MAX KOUTES <KNa&> 
11 LO 
13 walle HEADER 
lo WHILE 
15 = ROUTE <= MAX ROUTES <KNR> AND 
15 LINECUUNT <= 50 
) Gees Dio 
1s WRITE 1 LINE SUMMARIZING INPUT AND ACTUAL VALUES FOR 
2G THE ROUTE 
13 =NDLO 
ll LNDUO 
1a ROUTE = 1 
14 WHILE 
1g RCUTE <= MAX ROUTES <KNR> 
1} LO 
LS WHILE 
1s ROUTE <= MAX ROUTES <KNK> 
16 LINE GOUNT <=) SiO 
Le ba 
ee : WRITE I LINE SUMMARY UF VEHICLES GENERATED FOR THE KOUTE. | 
1z ENDCO 
Wel ENDDO 
11 wKITE TGTAL VEHICLES FOR ALL ROUTES 
) ELSE <CEMAND RESPONSIVE SERVICE>> 
kt WRITE SUMMAKY OF INPUT AND ACTUAL VALUES USED 
11 WRITE SUMMARY OF VEHICLES GENERATED | 
11 WRITE TOTAL. VEHICLES. GENERATED | 
G ENDIF 


1 CLERK ER RO ROR SRR ROKR KEK EKEND GF SIVOGNTRKEK RREK ERK AKER EKER EE KEES 
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4 ll = LUSER INDEX UF GIN 
4 12 = Hi CHEA INLEXK OCF BIN 
4 Le 
fo) ARC 1 )>1 
4 THEN <STATISTICAL SUMMARY CATA> 
& CLUMPUTE SU4%s MEAN & STANDARD SCEVIATION OF DATA 
G UISPLAY SUMMARY 
4 ELSE <FKCOUCE A LIST OF SAMPLED ITOMS> 
[oy -OR 
& =e eS’ 2 
6 OO 
a DISPLAY VALUE FROM BIN ARCA 
6 CNUDO 
4% ENOIF 
Sela NO (UC 
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COMPATIILE 
1===2SMAT CH 
2===S3NG MATCH 


BEALT o FikST TRIP IN SUARLING GUEVE 

Tivo = CUSRENF TRIP BEING PROCESSED 

hoAUYV - FIRST veHIClLe Ti THE TRAIN 

Vib = CURKRENEF VEHICLE GEING PROCESSED 

CRECK = INDICATES wHETHER GR NUT THE CGOMPATIGILIUY OF 


TRIP AND VEHICLE HAS BEEN TESTED 
T===>WAS TESSEV THEREFURE PROCEED TO WEXT TRIF 
F===>wAS NGT TESTEDs THEXEFO!S TRY THE NEXT 
VEHICLE 
ONS eae 
OTr(V) 2=0 
Me se salees) 


CASH CCEVYAND KESFONSiAVE SINGLE PARTY) 
it <THERE I5 A TRIP ON THE VErICLE ANI THE VEHICLE 15 IN. THE 
sGAKO EVENT.» THERE 1S AN ERRORD 
VTRTFUC VY) =U AND VMEVNT(V) = 4 
TREN 
ERrRGRTARKTERMINATS 


ranks ic 
Ir <THENE IS TRIP IN wOARLING QUEUED 
si CTL -=U 
Treiv 
Ms =CGVYEcHCSsserke) <Sat F TG TKIP AT HEAD OF SCALDING QUE GE. 
OG PF rRUM SouTL <RE“MOVE T FROM HOARDING QUE UE> 


NQ T INIU VELTL(V) <ENSERT T INTO BUARDING LIST OF v> 
VIGTP(V)2=TPASS(T) 
ENSIF 
ENDIF 


CAST GEYAND RESPONSIVE MULTIPARTIY ) 


Li <THe:'c 1S A TRIP IN THE BGARDING CUEUVE> 
SEQTLA=0 
Rims 
We hl” VEMILCLE TS EMETY> 
VNPASS (V) = a 
Then 
T2=1GUETH( SiOTL) <SET ¥ 70 TKIP AT HEAL GF BOARDING GUEULE> 
TIGsS= TAvicnH (T) 
Ce T FROM SSQTL <KEMOVE T FROM SOARDING QUEULE> 
NG T INTO Vit TL(V) <INSERT T INTO BUAKDOING LIST OF V> 
VTCTP(VIS=HTFPASS(T? <SET THE # UF BOARDING PASS TG SIZE OF T> 
ENCIF 
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tt th a tt 0 rt 7 - 
WHILE THER= AKE MURE TkIPS IN THE S0ARDING GUEUE AND MORE 
SPACE ON THE VeACeE 
Stull a= © 
VNPASS(v) + VTOTP (Vv) < VCAP 
OR 
EACH TRIP TID IN SOARDING GUEVE 
ou 
1 <TiD GAN FF RECON VERTECEE> 
VCAP S= VNPASS(V) + VTOTP (V)I4TFPASS(TID) 
TREN 
MATCH T=SMRSELCRPCOMPO) CUETERMINE COMPATISILITY> 
IF <CUMPATISBLE> 
MATCH=1 
THE ™ 
Du TIS FRGM SEGTL <KEMOVE T FROM BOARDING YWUELE> 
Nua. Tho inTG Vstretv) <INSERT § INTO BSGAGDING CLS GF Vi 
VTOTSE(VISHVIOTP(V)I+TPASS(TIU) <INC # GF 3ZOAKDIN PASS. > 
ENOIS 
ENCILFE 
EMD oC. 
EenG:ilhe 
CASE (SCHEDULED SERVICE) 
LS <THEFS ASE TIPS wAITING IN BOARUOING QUEVE>D 
SoEGTL=9=06 
TRE | 
REAL = TGUECH (SS5UTL ) | 
TID = HLALT 
bU 
HE ADV = V 
VEC Ss 0V | 
OG 
Ir | 
VrAP >= VNPASS (VID) + VTOTP (V1ID) + TPASS (T10) 
THEN 


GHE CK se =. TRUE 
CAStENTKY (COMPATIEILITY MUTHOD) 
CASE (HMROSABILITY UF COMFATILILITY ) 
MATCH s=SMRKSEL (PCO“PL) 
CASEC TABLE UF STATIONS FOR EACH ROUTE} 
IF 
THE RUUTE ASSIGNMENT TABLE IS VULED 
THEN 
Ir 
THE ROUTE OF THE VEHICLE MATCHES 1HE ROUTE 
ASSIGNED TO THE TRIP#S ULtSTINATION 
THEN 
MATCH = 1 
EGSE 
MATCH 
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ENOIF 
ESS 
Ir 
DES. Greet S&S UN THE RCUTE GCF Vv 
THEN 
MATCHi= 
EWSE 
MATCHiI=z2 
ENO-LE 
END 
ENOCASE 
LF <COMPATIGLE > 
AATCH=1 
TREN 
Ir 
TIQ =HeEAOT 
FREN 
HEALUT = TFUUECH (TIO) 
ENDIF 
DG filo FRuUM SHQIL <REMOVE T FROM SOARULING QUELE> 
NG Tivo INTO VELILIV) <INSERT T INTO EGARDING LIST OF v> 
VIOTICIV) SeVIUTECVIFTRASS(TID) < INC # OF SUAKDIN PAS Se> 
ENDIE 
ES 
CnECK -=FALSE 
ENDIF 
VID = VFRNCH (VID?) 
UNTIL 
VID = HEADV OR <LAST VEHICLE GF A TRAIN IS CHECRKED> 
VID =U <THE ONLY VEH}CLe 1S CheCKED> OR 
CHECK =TE UE <STARKT GVER WITH THE NEXT tRIP AND FIRST VEHICLE > 
ENCOO 
IF 
SBOTL m= 0 
TritNn 
TIO = TGUECH ¢TID) 
ENCIF 
UNTIL 
Sse aTL = 0 Ok 
TiO = HEAST 
eNDDU 
ENDIF 
ENDCASE 
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PXFERIT=T 
TREN 
SUN SARSEL (PAFCRO», XFER 
Ie 
AFEn=1 
TREN 


bG T FROM VIPIPG(V) 
NG Ft INTO VOXLILCY} 
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EMCIEF 
END Eg Se 
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ENOIF 
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wrtibe 
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reek 
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REFKESH Fae FECLLOWING VARIABLES IN THE IMAGE UF Ve 
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MCYPS=1 TO KMF 
LG <VALIDAT= FORMAT TYPE € SETERMINE NUMERIC FIOOCNTIFIER> 
Wi: 
MAME=FOKMCMTYPE ) 
THEN CARD TU LIST OF VALTu 


RE -<ceND. OF LLSt> 
MTYPE=K MF 
THEN <ERRGR EXISTS— INVALID FURMAT> 
EXRCR <iNVALIOD FORMAT> 
ENOIF 
ENDIF 
INT DG 
NAME=G 
END SU 
IF <NOG ERAXOR>D> 
sac RROR 
THEN <PE REFORM REQUEST FILING> 
SON ZRKEGU <FILE REQUEST & OBTAIN STORAGE ASSIOGUNmMENT> 
SINSSoIN4F1 <iNEXT AVAILABLE BIN 105 
CASE (2) <READ DATA FILE FUR PRECELOING F 
ROAD ACCUMULATION INTERVAL REGUIRED (MIN 
KUN 2EAD <READ KAW STATS FOR REQUESTED DATA> 
PGR <ALL REGUESTS rtrkeD> 
REG=1 “FO , bReE@ 
DG <BPxXOOUCE REGUIRED LATA DISPLAY> 
GING DHEREGTSLCLRECs1) <GIN NUMBER ASSIGNED TO R=EGULST> 
FOR AL=SPTR(EIN) +2 <FGRMAT Il IN BIN> 
CASK ENTRY(FURM) <OISPLAY FORMAT KEGUIRED> 
CASEZ(1) <rt ISTCOGRAMD> 
RUN ZHIST 
GASEICZ) <TIME SERAES PLOTS 
RUM ZPLUOT 
GWSE(Ss4) <LI1ST-_ORK SUMMARY> 


cBVESTS> 
) 
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Sian € 
COL eee te a) at a te gs a st 5 tb 4 
Ls KUN ZLIST 
pia chOCASE 
Ms ENUUO 
y tan Nie ak 
is LECTUS 
ss ENUCASS 
s eEnsOLO 
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PROJECT: AGT MEMBER: SOWTIX 
LIBEARY: DSM LEVEL: 00 .0 
TYPE: PDL USERID: C1z29496 


PEOC eoneex Specone PAR MEE EL ENSOCG CEDATE ANDEX> 


WEITE NAME OF LOAD MODULE, DATE & TIME 
ENTKY SOwWTIiW 

Sipe lics (USED IN 2NDEX 
EUTRY SOWTIY 

Wises Pe SSUR REABER JAME ZW PERSUM MEMBER 
END?ROC 
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000190 
060200 
000300 
000406 
600500 
0600500 
060706 
060600 


2s OSC We TATGIE ME“ScRE SOZNIT DATE: 
LanmeAn Ys o SM (le VEINS V0201 TeluMiee: 
TYie=s ce USERID: HSI95467 FAGS: 
START 
COL tt tt th een nr et SS 0 - Oe sr - 

i PROC SCLZNIT <SETAILED STATISCN MOOcL OUTPUT PRECESSOR INITILALEZATIGN>D 

aks 2STrelisre LINKAGE TO INTERRUPT HANDLER 

eS INITIALIZE SYSTEM DATA 

2 DNASE tS ee RSIS SIGES 

=A FOR 

3 i SH Oi 

3 DO <IMITTIALIZE RECUEST TASL E> 

> ZxeEGUE (I ».1)=0 

S ENDUG 

3 RUN OSIN <PERFGM INITIAL GOIN ALLUCATIONS> 

oS vG <PERFCRM DUMMY REAL IQ GETAIN SIMULATICN CHAFRACTERISTICS> 

=) RUN ZREGQGU <FILE DUMMY DATA REGU ST> 

3 RUN ZREAD <READ SYSTEM CARAKACTERISTICS FROM RAW STATISTICS FILED> 

3 chNDUU 

L ENDPRUC 
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STAS T 
COL 


Mook G&G & YY Fo & lit 


rear ©. 


x UW 


CNC Uw 


Gran (hos! 


e 


PESOS ce ANG Me’peRs SREALOZ DATES 
LEARY as) LEM aay An CO e001 T1iMeés 
Tyeus mol VUSZAIO2 4659547? PAGES 
a a ha ta na tr a th a a te et 


PEGS NSEABUG.se <“NBAD TYPe. 2 FOULLIWERS = SYSTEM STATISTICS> 


KT FEMS SNOT RELATAD TO STATIGN STATES> 


REA FOLLOW OR REGuUuRD 


<1THeS BELATED TU STATE [ — IN STATIONS 


ARAL FOLLOWER KOCURYU 


<TievS wELATSD TU STATE 2 — SOARVDING> 


ncAu FOLLOWZR RECURL 
K1teaS RELATED TS STATE 
MoAS FPULLOWER. Re CURD 
<1TERS RELATED TO STATE 4& 
ROA FOLLOWER RECORD 


ay 


LAUNCH> 


CUSHAM= SSIZes6054"” <CLUCK UNITS/SECUNL> 


FUR 
FACH REQUEST KEOQUIRING TYPE 2 DATA 


Touri= ZREGUE (Ye IR=AG)} <SUB CATAGERY 


itUL<=3 
THEN <STATISTiC RELATED TU CVERALL 
VAL = STAT( 1ISUB} 
ELS2 <VETERMINE PUSITIGN GF DATA 
I1EUS=iSuSs—-8 
tolB1=aTeyUur/s2e7y 
Iobe2=1SUB—(I SUb1*27) 
IF 
ISUS!|S>15 


— vEbOARLDING> 


NUMBER > 


STAIUN PERFORMANCE > 


IN RECURD> 


THEN <REGUI<ED VALUE 1S HALFRORC> 


VALS=HSTATCILSUS1412+iSus7—1I5) 
Sl Se 
IF 
TLUce>6 


THEN <ReECUIKED VALUL IS A FULLWORED> 
VAL =FSTAT (1 SUG1 ¥9+1SUS2—-6) /CUSAM 


ELST <REGUIRKEDSD VALUE IS REAL> 


VALAZFRSTAT(1SUtLI e64+1TSUb2 ) 
IF 
LSU02>2 


THEN SVALUE MUST Ge CONVERTED TO SECOGNDS> 


VAL=VALSCUS AM 
ENDIF 
END LF 
ENGI-F 
ENOIF 
fesDIlF 
RUN STURE <STOGRE The CATA VALUE IN 
SNDIEO 


ENGRRUC 
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POSH “AGT MEMSBtcRS SREACOGS Oy - PSF 


DESC A oven RSM BEV. O1-.00 TiMe: 
BPS ss FUL UszRIDs HOI9547 PAGE: 
LIAn T 
COL mR et a rr rt tn th 5 ts - 


a 


PROC xnESADUS <SEAD FYPE S FOLCUWER'S = STATIGN LCRNK -STARIShNes> 
r 


> Ux 
9 Si =e INS) 
s Cw 
ro) manD MEMS RELATED TO STATION LINK OCGUPANCY > 
1 TES RELATED TU STATIGN LINK PROCESSING, 
ii ITE“S RELATED TS STATIGN LINK QUEUING 
3S END OG 
Ss CUSAM= CSIZE/S0 <cCLOCK UNITS/SECOND> 
= FuR 
> ZACH KEGUEST KEGUIKING THIS RECGRO TYPE 
3 DG 
S IsU5= ZREWUE( 9s 1REC) <SUB CATAGORY I0D> 
es ISuzil=! 2US/7g9 
¢ lsus2e=Icoue—-(ICU31*9) 
7 DLN=ZZREGCUE CH es TREQ) <STATIGN LINK NUMEER> 
T IF 
S Isbe2>5 
7 THEN <VALUE IS A HALFORDS STARISTHG> 
y VALZEHSETATL IC SLUN—1 4% 124+15U51464+I15U52-5 } 
7 EESE 
SG Lr 
ster ISUHa>!| 
y THEN <VALUE IS A FULLWOKD STATISTIC REQUIKING Time 
is CUNVEHS TION TU SECUND S> 
11 VAL =F STATiI( (SLN—1 ) ¥441SUS91% 3+ ISUBE-2) /CUSAM 
S ELSE <VALUE LSA (XEAL STA ELSES 
il VAL=KSTATi( ( SLN—1 )¥ 0+ 1SUB1%2+1SUB2 ) 
| Bs | IF 
MS ISUE2>1 
pa TREN <VALUE MUST BE CUNVERTED TU SECONDS> 
S VAL =VAL/SCUSAM 
11 ENO LF 
S ENELE 
7 ENGCIF 
= ENCIF 
S aUN SUGRE »<S TIRE THE OoVALUE LIEN +A. GANS 
3 ENDUG 
1 ENUPREC 
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Pree Gilics 
Eales oeYane 
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mt a nt rr tn tan rte nr eee 


MEYORR:E SREALOG UAV ters 
LEVEL s C9201 y ia ae, Waa 
USERIOS Hos9S4F7 FAGLSE 


PRG Stavus, <iEAD TYPE 6 FPULLOWERS =.IRIP LINK STATISTICS>S 


FOR 


FL=1t 


iE Ay 


Pes 
Tea SsN 


s<NTL) 


Pustio: imokiAbe ss 10 
Lets RELATED Ta 
ITEMS RELATED TO 


TRIP LINK OCCUPANCY s 
TRIP LINK FROCESSIiNGs 
TRIP LINK WUEUING 


CSUEZESGO, KCLGCK UNITS/SSECOND> 


REGUEST REGUILRING 


y 6) 


GreCISUutl*loe) 


=He(4G4e1iXEG) <TE 


Ne I 
ow 

Tom Kee Ru 
OW 

Seem 


Us Z>lLo 
KVAIUE) FS AC HALF 


wAIA IN THIS RECURD TYPE 


GUEC%sIREG) <SUBCATEGORY Lb> 
3 


Ife LINK NUMSZR> 


HURO STATISTICD 


VALSHSTATICCTLUN~-LI*¥24415U5146¢419U52—-106) 


Cal 
(a 


i 
mn Ha & 


LE 


th < jw 
(ie es 
rads 
i | 


roe 


PSUs2e>Z 


THEN <TIM= CONVO 


VALHVALZCUS 4M 


2 

VALve FS A SULLZORD STATISTIC> 

PSTAT1 (CC TUNW—1 )* 124+7T5UG1F44+1SUG2Z-6 IDS/CUSAM 
<VALUE 195 FEAL VARIASLE> 

L=X STATIC ( TLN—1 ) #1441 5U5) *64+I SUE) ) 


SION TUG SECONDS 


STUCRE <sTUuRE THE VALUE IN A BIND 


ENDIF 
SHO 7. 
Sa DU i= 
xiuUM 
SRO 
ZENUFRIC 
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PRO ens UaAGt MEMBER? SRLQ@TLU DATE: 
[oem SSiiNtMtiovere, air LEVEL <¢ G1.0C hime ¢ 
TYiec: PEL USERID: C1Z20496 SAGE : 
SAR Ti 
COW --a-4+ - = |) a a at th a te nt a t — - 

a PING eiKt Ge WEY CRECURO/SRKEGUEST CORRELATIOND 

XY Fisr 

ey ALL SUBCATEGORIES 

= Su 

$s miwie 

7 ALL. bEGUEST TABLE ENTATES 

<5 Diy 

? LF 

Gy MATCH FUUND 

7 riz 

G CHAIN LIFU wITHIN SAM ENTITY NUMEER 

7 ENOI¢ 

& =ENCDO 

3 ENOCO 

1 SCNDRPREC 
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Se 


OnQu=cTs AGT RemgeERs SSASAV DATE 


ateinAeeyy uaSM Levels O1 e001 TIMe 
TYROS Kol USERID: C120496 PAGE 
STAKT 
COL a nt tn tar re nr tte 0 - - +  — - 
I PROC SSaASAV <KiNITLALIZE SYSTEM STATUS ArEA wOROD> 
S Ai et SA ACE SOT Taiste THUS SSKVES FQ CAPTIWRE TFHE ALbORESSSS OF 
S TRS AULKESSLES GE THe STARE GF The INPUT CGMMONS.s START GF Tre 
> RMoCEL AREA CGe:MUNS ANU END GF TRE CUM“ONS 
i SiVERPRGC 
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COL 
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LEpDas 
TYPer 
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POC 
DE 
bur 


A.cVe USA 
: aot) 


tan ee at en a en i Onn nest en nr oon a tennant 


MOMSER S SScTuP 
Levels 00.01 
USER LOS H639547 


SowWe? <INTIALIZEO MAYUR CATAGURY FAGLE> 


ith 
LINEA Zee ADEE 
MATTIAS (1) =4ARTTAKCLD) 


OF MAIN CA TAGORTIES> 
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CATL. 
TIME: 
PAGL: 


Q--— -+—— -- 6 - — + ——- — 7 - 


————————— 


STANT 
COL 


Cy! pea 


Gi Oh Gg Gb WG ecr (er 


Oeercwonenel 


CG 
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NON C 
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ae 


wAOQYUECTS AGT MEMUERS SCSLEAV OATE =: 
LJ]bkaAnKY? OSM Levens Oj 2h OEE S 
TYe&ls mol USERID? £3z260507 PAGES 


ant i ae ne a a ath eae ee a te 00 OO Oe as oe 


a 


mn 


BEseSlLeanvev) 
K<vUNE wet N vw TS ACTUALLY LEAVINGs LeEes KAS PAST FASEED SSTEET>D 
Sie v 


2 

<IeRECESS THE LEAVING VEHIECLI> 

SLUCC(ISL JS=SsLCCC(SLIAVTRLEN¢CV} <DECKEASS UGOCUPANCY GF OLD SL BY THAIN 
LENGTH UF V> 

Od VO FROM SLMEMT CSL) <KEMOVE V FROM MEMBERSHIP CHAIN OF CLuU SL> 
CULLCCT STATS FOR VEHICLE LEAVING THE STATION LINK 


lr <V 1S UNL Y VEHICLE Giek TRAIN GN SLD 
SLsehT (SL J=0 “NUTS ONLY THE LEAD VEHICLE OF THE TRAIN IS ON THE 
StATIGN LINK MEMBERSHiP LiST> 

THEN 


Lin <CtRRENT SL HAS DIBLAKD/ECAKD EVENTS> 
SEMPYESC(SL) = S 


THEN 
SLeEUCCOCLL)Js=6 <ReSUT AVALLASLE BERTHS TO FULL CAP UF SLD 
SNOLE 
Specs 


NIATV I SVMeMCHOSLMEMTP (SL) ) <IDENTIFY TRE FCLLOWING VEHICLESTHA IND 
SP8C0CesS THe rOLLOWING VERICLE ON THIS STATION LINK> 
CASCENIRY (VERZEAS(CNEXTV) ) <IF NEXTV WAS LELAYED SY Vs GET 1T 


GUINGS 


CASELCE) <v WAS IN FRONT & NEXTV OTRERwWISE DONE> 
VGSEZASONEATV) S=1 <NEATV IS NGw QUEVED DUE TO CONGESTIUN SG THAT 
SASPRM FILL RECOGNIZE IT AS Nuw READY TG 
THY To LEAVve> 
SSAmMac( She S <TRY TO GET NEATV. SOING> 


Ensclo) <v WAS IN FRONT € NEXTV WAITING TO STARE L-EVENT>D 
<NGUES VSEVNTCNEXFV) ALREADY SET TO VEHICLE CVENT & 
VMEVNTOCNEXTV) ALREADY SET TO LAUNCH EVENTS 
SUMUG (WExATV) KGET HEXTV GUING AGAIN> 


<i: GP> <NOTE:S CaASE=U ===> NEXTV SN Fol - SO CO NOT FOoUCH IT 
=1 ===> NEXTV GUEUED vUe TO CONG/FAILUKE --— 
bUT COULUN®T BE SINCE WALNST AT 
TOr GCF SL — SU NOT APPLICAELE 
=4 ===> NEATV IS STORED — SO LEAVE IT 
CisOCASE 
END LF 
<PRECESS VEHICLES IN THE UPSTREAM STATIUN LINK(S) > 
CSPMAC CS sU)<TRY TO GET VEHICLE(S) UN SL(S) UPSTREAM OF GLD 
SL MOVINGs SINCE NEXTVS EXIT MAY HAVE MACE RLON 
FOR NEw VERICLE(S)/ZTRAIN(S)> 
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GQ Oates 
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Coa GE Gt && 


C 


U: 


PrgaveE Cs AGT MEMBrRe SSMOVU DATE 


LicgRAANY? DOS" LEVELS Oleld TIME 
aveveus ots USERICs S326507T PAGE 


———-+----) ne rn tr nn rr te on hee eh ne a tr eo eee -_——— 


PROC LSSMOLW Cv) <MODZL TRE VEHICLE ON ITS CURRENT STATIUN LINKS 
ter 


VNEVNT(V) a=U AND <NO0T FRIGR TO FIRST EVENT FOR THIS SLD 
VRE AS (VP asz <NWOT w+AITING TO STAKT LAUNCH EVENT SECAUSE 


wereetl OVS TC GTHEX VeHiCLe IN FRONE AND WAITING *4O START 
LAURCH EVENT> 


Tren <FERFORM AFTCR-TIME CEGMENT PROCESSING FGR CURRENT EVENT> 
RUN SSKODACV) 

cCNOLF 

ACONES 3 =F <INATIZE ENDICATOGR TOS “THERES ARE MORE 

VEMGCLE EVENTS. Tu GCCUR TO VOON- TTS skie*> 

KUN LSMULNO VW) KVETERMINE NEXT SVENT UN THIS St GR * CONE ®> 

IF 
AUUNE 5a AND <NOT OGN& WITH ALL EVENTS UN THIS SL ANDD> 
VOREAS (VV) =0 <¥ HAS NOT SEEN PUT IR A GUEVE LURING MUDELING> 

THEN <PEFFORM PCEFORC—-fI14E SEGMENT PROCESSING FOR NEXT EVENT> 
RUN SS'ODs3¢V) 

SNUTE 


ENUF ROC 
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PROJECTS ACT MEMSGERS SS*ODA OATE 
Sse AE NY Sy eM bEVELS UV1leJI TiMe 
Wee. al Oy USERIDs bP3c6S507 PAGE 


m4 = Gt 5 - 4 4+ 7 


a4 | 4 - -  - -- 4 -- -- 


PROC TLSMAVDACV ) 
Seine ni oA, OND OOF Tie “SSeGMend FOR” THaSt PRUCESSES> 
Sut=vSt(v) 
GAS SENT RYOCVNEVNE OVI) KBASEDO UN THE VEHT ee EVENT FOR WHICH V 


SPENT THIS PAST TIME SEGMENT GN TRE FiEL> 
CAS= CrZAUHAY 205 TRAVELS 


Sirs ri Ae)ts => <TURN THE HEADWAY ZUNE FLAG OFF> 
KUN SSHVACC(SL -UrRSTREAM) <TRY TG GET VEHICLECS) ON SL(S) 


UPSTREA™ OF THE OLD StL WAVING » 
SINCE TRE HEADWAY ZONt 1S NOW 
‘s CLEAR> 
CAS: CTRAVEL ) 
Cx~G OPD> 
GaS= (oS s CAR) 


IuCiLUsce SsmMGDAl 


CAS = {LAUNCH } 
CULLECF STATISTICS FOR A VEHICLE FINISHED WITH LAUNCH 
Ir <KONTRAITINMENTS&ODEFRAINMENT POLICY IN CFFECT>D 
PINTS = T 
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PROJECT: aGT MEMBER: SSMODA1 
LIBRARY: DSM LEVEL: 01.03 
TYPE: 2 DL USERID: €120496 | 
~———+ -- == ] —--+ -- == 2---- + 3 -- $+ = - = 4 ---- 5 - — -+ -- -- | 
CASS (DESOARD) 000 300 
COLLECT STATISTICS FOR VEHICLS PISISHED WITH DEEOARDIG 000200 
POn 060306 
EACH VEHICLE VW" IN THE TRAIN OF V 000400 
DO 000500 
POR 000000 
SaACH TRIP(T) IN DEBSOARD AND OUT (VDBLTL(V™)) LIST 9.90 700 
G ts 
DQ T FROM VDSLTL(V¥") <REMOVE TRIP FROM DEBOARD AND 0005001 
LEAVE SYSTEN LIST> 0061600 
COLLECT STATISTICS FOX NUMBER OF TRIPS DEBOSRDNG TO LEAVE 061100: 
COLLECT STATISTICS FOx YUHBER OF PASSENGERS DEBOAZDING TO LEAVE 051200 
INCREASE JCCUDANCY OP TZ 3 00130 CG: 
UPDATE STATS FOR ENTESIYG ON TL 3 001406 
SET EVEST=3,TIME(TO LADICATE TO SAPPEL2 TO SKIP CERTAIN CODE), 061506: 
§ LINK=3 061500: 
SCHEDULE DEBOARD EXIT WALK 0017001 
ENDDO 001800: 
FOR 001500: 
EACH TRIP (T) IN DEBOARD AND TRANSPER (VDXLTL(V")) LIST 902 900: 
DO ( 
DQ T FROM VDXLTL(¥") <REMOVE TRIP FROM DEBOARD AND 062200( 
TEANS FER LIST> 002300. 
NQ T INTO BOARDING LIST <BIT TRANSPE2 TRID INTO BOARDING 002400( 
| MEMEERSHID LIST> 062506 
UOCC (3) :=UOCC (3) +TPASS (T) <INCREASE OCCUDANCY OF BOARDING 00260U( 
LIYX BY SIZE OF TEIP> 0027064 
COLLECT STATISTICS FO NUYBER OF TRIPS DEBOARDING TO TRANSPER 002500( 
COLLECT STATISTICS FOR NOSBER OF LASS DEBOAEDING TO TEANS?ER 0024004 
COLLECT STATISTICS POR A TRID JOINING THE TETD LINK 063600( 
SET EVENT=4,TiME (TO LNDICATE TO SaPPEL2 To SKIP CERTAIN CODE), 003100( 
§ LIVx=3 003200( 
SCHEDULE TRANSPER WALK 00330% 
ENDDG 00340 0( 
ENDLO 003500¢ 
003000¢ 
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e-OQVELTS AGT MEMBERS SSMCDAS DATE: 
LIistFaAnYs OSA = MES ES O1.20z RIMES 
TY ars oa USERID? 1°32726507 PAGO: 
a a tt nea te nb nr te 
CAS=CZUARD) 
ecLLecC?d STATISTICS c-On A VEHICLE FINISHED WITH cCOAROING 
OU VEHACLE FROM Tre GUEYVE GCF SOARDING VEH ICLES/TRAINS 
FUR 
EACR VEHICLE Ve IN THE TRAIN LF ¥ 
ee 
FUR 
CACH TRIPCT) LN BGLARC E€VSLTL OV )) LIST 
e180) 
Od T FROM VELTL (Vv) S<REMUVE TRIP FRUM GOARD LIET> 
NG T INTO VTRIPUCV) <PUT TRIF INTO TRIF GUEUE UN 
ped VEHICLE> 
Ov T FRUM UMNEMTL CE 3) <REMOVE TRiP FiO SOARD LINK> 
UGUCC (3) S=UCCE (3 J—TPASLOET) <DECREASE CCCUPRPANCY CF BLARDING 
LINK BY SIZE UF TRIP> 
CULLTCT STATISTICS FOR THE NUMEERK OF TRIPS LOARDING 
CGiLECT STATISTICS FOR THE NUMBER GF PASSENGERS SC0AKD ING 
CULLEcT STATISTICS FOX A TRIP LEAVING THE TRIP LINK 
CULLECT STATISTICS FOR A TRIP LEAVING THE GUEYED CTATE 
TOCREAS (T)S= 0 
VFES (CV) S=6 <MARK VEHICLE AS UNRESERVEDL> 
ENDOU 
=\UuUC 
nJN SMAKSTCV) <r INC THE NEXT STOP GF FRE HOAD 


RUN SUPMAC( 2) 
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VEHICLE IN THE TRAIN> 

<TRyY TO GET FRIPS ON TURMSTILE 
TE “OVIAG INTO COARLING Tle 
SINCE TRIPS HAVE LEFT BOARDING 
QUEVE TO KOARG V> 
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PROJECT: AGT MEMSEPR: SS*ODA5 
LIBRARY: ws MAA apg O1.U0 
TYPE PDL USERID: C1z20496 
-<-<-- + 1 me at DR Ht —--5--- -+ ——-—-— 4 --——+ —---5----+-- 
CASE (JOLNT) 
COLLECT STATISTICS S02 VEREELECLE FENESMED Neare EORR DIG 
eae VEHLSLE FROM LUE QULUL OS SOARDING VWEArecLeEes 
ruU 
BACH VEAECLEM EN OGRE Pra EN OE VV: 
DO 
OR 
5 EACH TERIP (LT), IN DEBOAED AND OUT (VD2E- 21h. (V")), LEST 
O 
DQ T PROM VDELTL(¥") <REMOVE TRIP FROM DESOARD AND 
ULAVE (SYS PES ELS T> 
COLLECT STATISTICS FOR THE RUMBER OF TREPS DEBOARDING TOG 
LEAWENG (LEE (STA PLON 
COLLECT STATISTICS FORK THE NUMBER OF PASSENGEPS DEBOAEPDEING “fo 
LEAVING THE STATION 
INCREASE OCCUPANCY OF TL 3 
OPDATE STATS FOR ENTERING ON TL 3 
SEE EVE AS Eu ZNDSCATE TO SAPFEL2Z TO SKIP CERTR EN CODE), 
LiN K= 
SCHEDULE DESOARD EXIT WALK 
EWDDO 
POR 
pon ae TRIP (T) IN DESOAED AND TRANSFER (VDXLTL(¥")) LIST 
DQ T FROM VDELTL (V®) <REMCVE TRIP FEOM DEBOARD AND 
f TRANS PER ple ST> 
NO T INTO “BOAR DENG LEST <PUT TRANSFER TRIP INTO BOARDING 
MEMSEPRSHIP LIST> 
JOCC (3) :=UVOCC (3) +TPASS (7) <INUCKEASE OCCUPANCY OF BOAHDING 
LENK BY (SZ:b Or. Teuce> 
COLLECT STATISTICS POR THE NUEBER OF TRIPS DEZOARDING AND 
TRANSFERRING 
CCLLECT STATISTICS FOR THE NUMBER OF PASSENGERS DEBOARDING 
AND TEANS PERRING 
COLLECT “SPAZTSTICS FOR A TRIP JOLPUENG TSE TRE? Ek 
Sit ap Re eens aes INDICATE TO SAPFEL2 TO SKIP CERTAXN CODE), 
S LINK=5 
SCHEDULE. TRANSFER WALK 
ENDDG 
POR 
sj TRE (CE) LEN BOARD (YBETEA(Y").) LEST 
D 
DG BT FROM vested (yy <REMOVE TRIP FROM BOARD LISTD> 
WG Tf INTO VERLLO(Y yee eres INTO TPEIP OUEUE ON 
Bi Gers 
DO fT PROM UXENTI(3) <REMOVE TRID FROM EOARDG LINK>D 
UOCC (3) :=dJOCC (3) -TPASS (T) <DECREASZ OCCUPANCY OF BOAEDING 
LINSA BY S2Ze OF Pake> 
COLLECT STATISTICS FOR THE NUMBER OF TRIPS BOARDING 
COLLEC? SPATISTICS FOx DHE NUNBER OF VPASSENGESS BOARDING 
COLLECT SEATISTICS 2GS A TREO WEAVING eek oink 
COLLECT STALESTLICS LOR A “IREP DEAVING LSE OBES) SPAWE 
TOREAS (T):= 0 <VEHICLE NOLONGER QUEUED> 
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RUN SUP¥AC (3) 
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PROC sSSMooscv >) 
<itaT TQ) DO SEFSRE Tine SEGMENT FG THESE PROCESS ES> 


LSGCAK WAR INAME DiM vesCr1lPT1ION 

dt e _ SQOARLING CELAY SASED ON NUMBER GF TKIPS BOARDING 

Ba - EQARLING DELAY BASED ON FHE ECHEDULED DEPARTURE 
TIE 

33 _ CUARLTING DELAY SASEU ON THe FORWARD VEHIGCLE®#S 
tOARKYUING DURATIUN 

Gi - GESGAR SING D&LaY SASED GN NUMSER OF TRIPS 
LE SUARDING 

DsSiaAa = MAX LESOARD/S0OARCD Tis 

EStet.e KMTLEN THe MUMBER OF PASSENGERS DESUVARDING THE VEHICLE 

CRITIM = GUTPUT RAMF TRAVEL TIME 

T - USED TU SPECIFY THE TIME TRAT THe VERNeCEhE Vree 
SPEND ON THE FEL 

TA - VELAY CUE 99 MERGES GN FRE REST IGE 
THe NETWORK 

Pa — SEetayY SUE TOO eSeaAe MENGES 

FLAX - He AD AY REGUIRED GN THE SYFASS LINK FUR THe 
LOKGcST FOSSISLE TRAIN 

TMAX - THE AMOUNT OF TIME A VEHICLE WILL SPEND CN Tre 
rE FOR WE BOARO/SLE SUARDSJOINEI EVENT 

TMEAN - A MEAN TIME 

G - AN IWOiCATUR wITH A VALUE GF 1eG NHEN THE 


CURRENT STATICN LINK HAS A HEALDHAY EVENT 
AND A VALUE UF 04.0 WHEN 1T HAS NG STATION LINK. 
USED TO MAKE TRAVEL TIME A FUNCTION GF HEADWAY 


TIWEe 
VSERP GS - THE VEHICLEZLEAD VEHICLE IN THe TRAIN IN FRONT 
LF THiS VEHICLE GN TRE STATICN LINK MEMBERSHIP 
List 
VGEREASCV )2=G6 <MARN V AS ABUUT TG SE PUT ON TRE FELD 
CASZENTRYOVMEVNT (CV) ) <PASED UN THE EVENT THAT iS AbDOUT TO KRAHPIN 
TO THE VEHICLES 
CASE (FE ADWAY ZONE) 
SGtHéZeM Se yess < INDICATE HEADWAY ZUNE CANNGT Sc ENTESE D> 
TS S=cb rr IACsl J)*¥VTRLENCOV J 45LHTEC SL) <CALC HEADWAY ZONE TEAVEL TI ME> 
SCHED CVsT) <SCHESULE VEHICLE V TQ SPEND TIME T GN FELD_ 


CASuUCTRAVEL) 
INCLUGSGE SSMGOST 


CASE (CERCARD ) 
INCLULE SSMODG2 


CASE CEOARD ) 
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CT: AGT MEMBER: SSMODB3 
RY Ss ° DSM GEN Bois 01.08 
PDL USERID: €120496 
ma = 1 + — = - 2 = + — 3 4 = + = - 5 - -- 4 -- 

(BOARD 000 10 0¢ 
COLLECT SIALS POR A VEMICLE /ALL VESICLES IN THE TRAIN, PENDING 00026C( 
BOARDING: 000 300¢ 
NQUE THE VEHICLE OR LZAD VEHICLE OF TRE TRAIN EN. THE LEST OF OGO4OUC 
BOARDING VEHICLES/TRAINS. 000500C 
THAX = 000600C 
RUI SMERD (¥) 00070 6C 

00CE00C 
vID = ¥ 00090 0C 
POR VID 0010006 
ZACH VEHICLE IN THE TRAIN OR FOR A SOLITARY VEHICLE 99119 0¢ 
DO 
VNPASS (VID) = VNPASS (¥ID) + VTOTP (VID) 0013006 
TMEANS= STBA*VTOTP (VID) + STSC 06140060 
VRANDN. (AKSEED, TMEAN, STSSD, BT) 001500C 
THAX = MAX eee B17) 0010000 
VID = VIRNCH (VID) 0C17170CC 
UNTIL 0016000 
VID = V OR 0015000 
VID = 0 0G2G0GC | 
EsDDO 0021006 | 
IP SERVICE POLICY IS SCHEDULED 0022000 | 
POLSER = 3 0623000 
THEN 0024000 | 
RUN SMLTIM (V). 0025066 
TMAX:= MAX (TAX, 32) 092600C 
WHEFOR:= THE VEHICLE IN P2ONT OF V 0027000 | 
IF 0928006 | 
VBEFOR IS IN THE BOARD EVENT ON THE PEL 0029000 | 
THEN 0630000 | 
Bs = ¥Timz (V3E20R) / 10 - CLOCK 0037000 | 
TMAX:= MAX (TMAX, 33) 003z0C0 | 
SNDiF 0033000 , 
PLSTLV (VROUTE (V)) = CLOCK + TMAX 0034000 | 
ENDIP 00350CC 
SCHED (V, TMAX) 0036000 | 
LP (WRITING TRIP & VEHICLE EVENT FILE) 0037006 
aly Oc360C0 | 
EACH VESICLE IN TSE TRAIN 0039000 
DO 0040006 
POR 0047000 | 
[ACH TRIP BOARDING 0042000 | 
DO 04 3000 
WRITE TVP RCD 0044006 | 
PNDDO 0045000 _ 
ENDD'O 004c00C0 
BNDIP 004 7000 
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VLACAN( v) = T 
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<F IND DELAY UNTIL A SLOT IN TRE BYPASS LINK CAN BE FOUNLs T2e > 
<1F A SLOT CAN®T GE FOUND, YVETERMINE TRE VELAY UNTIL RETRY 
Ts ATTEMPTIELs TE AND SET VLAGAN(V) TO TRUEes LF rETRY SS, SUCCESS 
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THE CASE UF AN CN-LING STATIGN WHERE 
THE VEHICLE IS NOT TO STOP 

T===>060 NOT SKIP GVER DEBGARD €& HOARD EVENTS 
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ee a wee = ae = = = Se ee ee ee Se = 


Le SFURST EVENT ON TH1S SL FOR v> 
VMEVNT (CV) =0 
THen 
NO VW ULATO" SLMEMT (Lb) <PUT V GN MEMBERSHIP CHAIN GF stL> 
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CULLETT STATIZTICS FOr A TRAIN ENTERING THE STATION LINK. 
Ir <TRE CURRENT SL Gr V RAS DESOAICD ANUSUR SUARD EVENTE> 
SIGE SE. CSE) = 3 
TAS 
SLPTCC (CSL) FHSLPOCCISLIFVTRLENOV) <INCKEASE PSEUDO-OCCURANCY Ge SL 
SY TFEAIN LENGTH OF V> 


VENDs=i ~ <SET °EVENY? Tu SKiP GQVER CEBOARGD & SOARY LEVENTS> 


CASEE WIRY CVE VNT CV) ) <SASEG ON THE NEXT VEHICLE EVENT JO SE 
AERFURGMED> 
CASaCHEADUAY ZONE OR TRAVEL OR STCRE) 
EVFNUS=T <TURN SKIFF FLAG CFFs SU THIS EVENT IS RERKFORMEL> 


CéaA&Se(CeESOAROs BUARDs UR JUINT) 


iF 
STYirE=F UR <STATIOCN IS UFF=-LINE> 
VNXASTN(V)=STSIM <VEHICLE 1S SUPPOSEC T9 STOP HERES 
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EYENDS=&F <TURN SKIP FLAG UFFe SO THIS EVENT IS PERFCRMEL> 
Sess 
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SMB Ee 
CASE (LAUNCH) 
LF <v NGT AT HEAD OF SLD 


VYEMCH(SLAE AT (SL) dn =V 
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EVENTS> 
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CASC (yu) <NG “GRO EVENTS ON CVENT INOPCATOR LIST FOURSiIIiSr se> 
Ir <V HAD BEEN SAITING 1G START ITS LAUNCH EVENF(CS) > 
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TincN 

VMAOVNT CV) 2 =LAUNCH 
SLSE <NI MORE EVENTS EN 
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ENIILF 


<CUULUN® T FIND SLOT ANL REGUIRES ANOTHER LAUNCH> 


THIS CIhK> 
®*CUNE *> 
<TURN SKiP FLAG UFFs SU THIS EVENT IS PERFGRMEL> 
=4DCASE 
UNTIL 
EWieNOM ao ie 
ENDEG 
EADFRKUC 
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“4 
a a 
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bat <VO ITS AT Ts’ OF ish 
r GEXTT QF VES (St. FS PAT BES 
SLE KLE Cst jet 
THEN 
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RUN SMOLVE Cvs SLU lvCCSL) sASLLST) <KETURN ASLLST GRUEXEU BY 
PREFERENCE ANG ENGING IN ZEROe> 
ZNO FE 
FOR 
SACH MEMSERs Cl)s Ge ASLLST CE EOSSIS EE “SUNKS 
UU 
LF SNE wSi: lS) At Ssenk > 
ASLLST(LI=SHSINK 
HEN 
FENIRSS=T <SET TG CAN ENTERS 
Si <NEXS TS OES. ONG Ay SENS 
1& 
SLAVALCASLELST (1) =F & €SL TS AVAPEASEES 
SLENTCASLLST(i) ) =r <SL ENTRY 1S NUT FATLEU> 
THEN 
IF <St SEADWAY CGOiwe NOY OQCCUPTED ON THIS Sls 
SLHaZF(ASLLSTI CL) =r 
THEN 
LF <ASLULSTCI) HAS DS/5 
SLTYR=. CASLEST Oh: = 
THE? 
IF <V2S TEAIN CAN FI? IN THESE SERKTHS>S 
SLCAP(CASLLST( 1) J} >=SLPSOCC(ASLLST(I )) +VTRLENC Vv) 
TREN 
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SLCAPCASLLSI(C 1) IOHSSLOCCCASLLSOT(C1I) J#FVTIHMLEN(V ) 
TRE’. 
AENTRES=T <SET FG CAN ENTERD> 
ENDwIE 
CNDIF 
ENOIF 
-FNOLF 
eSNeLE 
RSS] Ei tal os 


AENTRS=T UR <THE VEHICLE CAN ENTER TRE LINK GR 
AS-LES F(T) = ¢ <THE LAST STATIGN LIWK UN THe LAIST HAS GEEN 
GheCKici > 


La Ste VERALCLS, CSULO ENTER ONE OF FHE OCOYUNSTrE AM LINKS> 
AENTRS = T 
THEN 
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ASLLST «1l) = INFUT AMP 
TREN 


CULLECT STATIGN ENTRY REYVECTION SIATISTICS 
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ENUF 
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BOSE CHE YERBIEGLE 1S GUuEVEm DUE TO CENGESTION>S 
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ULOC(TCURRCT) ) SSUCCC(TCURRCT )} —TRASS(T) 
Ui OP FeO Uren TE CVGURKCIIYD” <HiEMeERSELP CHALN> 
SUPSFAC( TCURY(T))° 
CULLECT STALISTICS FOR THE TRIP LEAVING THE TRIP LINK 
Ws <I1F THERE IS A FOLLOWING TRIP> 
NeatT -= 
TREN 
CASEENTRY CTGREASCNEXTT) ) 
CASE(E) <NEXTT HAS VEEN WAITING TO START ITS PRUCESSING EVENT> 
<NOTES SEVENTOCNEXTT) ALiKEADY SET TO TRIP EVENT & 
TEVENTO(NEXTT) ALHNEADY SET 10 1> 
KUN SUMOGOCNEXTT) 
GASewrlce 
<NO CP> <NUTE? CAL&S=6 ===> TNEXT UN FELs GUT IT CANNOT SE SINCE 
IT ¥AS OT AT HEAD CF TCUKR(T) 
CASE=1 ===> NEATT GUEZULED LUE TO CUNGe/FAILs SUT LT 
CANNOT Bc SINCE IT WAS NOT AT THe 
FEAD OF ITS TCuRR¢)) 
CASE=2 ===> TNEXT GUEUVED DUE TO TRIPS IN FRONT OF 
IT & GIHERWISE DUNEs GUT IF CANNUT SF 
CUNE SINCE IT waAS NOT aT TRE HiAu 
Ge ITS TL AND THYS CUULD NOT START 
ITS PROCESSING EVENT 
CASE=4 ===> NOT APPLICABLE 
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TER PCUS S(T) <INITIALECE TRIP*S CURRENT TRIP "LINK TO "TL"> 
ts peices S DZBOARD EXIT «ALS OR TRANSFER WALK) 
P(DESOARD EXIT WALK 
DYCREASE THE OCCUPANCY OF THE TRIP LINK 
UPDATE STATS TO REPLECT TRI2 LEAVING Sty a 
UPDaTe STAITS TO REPLECT TRIP LEAVING ON TL 3 


UPDATE STATS TO REPLECT TRIP LEAVING PEL 
anaes XT 
UPDATE STATS TO REFLECT TRIP LEAVING FEL 
RUS SHTABQ 
ELSE 
ADONET :=P : <NOT _DONED> 
oene TSIP LINK EVENT POR ZHICH THE TRIP HAS SPENT TIME ON THE FEL 
-S EVR E0RKTEDS 
CASEEN TRY (TMEVNT(T) ) 
eae. <STAAT WALD 
TAEVNT(T) :=1 “i - <SET NEZT TRIP EVENT> 
gocc (t auc CAEL +T2ass (T) <ZNCREASE OCCUDANCY> 
79 fT LUTO UAEaTL (TL) <4EMBERSHI? CHAIN> 
TIM: =UTIM (TL) 
SCHE5(T,TIM) 
SES <ESD WELA, START PROCESS> 
IP? <THE TRIP EVENT IS ON THE TICKETING LEnK OR TURNSTILE LIYK> 
mule = 108 Ths 2 
a 
IP <S2RVERS ARE AVAILABLE AND T IS AT THE HEAD OF THE TL> 
eae Gra eae AND 
Rene ee Eate (te) 
TI4 = UTIMA (TL) FT2PASS (T) /CSERV(TL) + UTINS (TL) 
XCALCULATE SROCESS TIM=E> 
TOBEAS eee <SARK AS ON PELD 
TYEVYT(T) :=2 {SET NEXT Tall EVENT> 
SCHED (T, 72M) <SCHEDULE T TO SPEND TIME="TIN* OF PELD 
ELSE <NO SERVERS AVAILASLE AND/OR NOT AT THE HEAD OF TL> 
TOREAS (7) ?=3 
eure i 
ELSE <TIL=5> <TYS TRIP*S LINK IS THE BOARDING LINK> 
<ALSO THE TRIP IS DONE WITY THE TRID LINK MODEL> 
ADONET:=T 
ENDI? 


eS ie TURNSTILZ LISK OR TICKETING LINK IS DOWE> 
ADON <?f:=T 


EXDCASE 
ENDIP?P 
EXDPROC 
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LibstAw Ys USM CE ViEk C1214 Fite 
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ProcssUTFTST(T) 
K.30 9% es WH KQUTINE wOULO NEvE HE ENTERED FOR A Tx 1ie THAT 
tS avOT CAT THE HEALD Ge TTS -Tatiz LINk>S 
CASEENTR YC TCURR(T)) <D2erPrNBING UN THE TRIP LINK THAT THE TFIP 
iS CURRENTLY CNe YVETERMINGE WHETHEK OR NOT IT CAN ENTER ITS NEXT 
f.r.li- Like lr NOT, SG<USVE Tf ON LTS CURRENT LINK> 
CnSE(O9262) <JUST AKKIVING AT STNeCURKENTLY IN TICKETING Ths 
CURRENTLY iN TURMSTILE LINK> 
LE <CAN JF ATS 
UCAF(TCURS (CT) 42) >=UCGCCOICURK(CT) 41)+4TPAS S(T) 
THEN 
ACNTRTS= <SET TU CAN ENTER> 
AINXTLSS=TCUcR (OT) +i <SET TRIP LINK TU NEAT TL> 
FencaS (T}s= O 
ey eis 
AENTAT I=F <SET TO CANNOT ENTER> 
RE aASCT)IS=1 <MARK AS GUEYED OVE TO CONGESTO 
EMULE 
CASHE(S) <CURRENTLY IN EQARDING LINK> 
ALINTR f s= <SET TG CAnw ENTER>D 
AITNATL 2=4 <MARK A AT THE END OF TL*S> 


ae eye urs CT MEMiseR 2 SZHDIe DATE 


LivrANYs obs WE Vries C1.eCu Tp Hike 
T¥tee 3 reCt USERID: Cleb490 PAGE 
aan ae Oe nnn nnn eat 4a eee Oe at ee es 7 


PROCIEZHOK CONF SLL eNTYPE ) 
KoRile HEADER RLCURS TO Raw STATISTICS FILE SHOWING NUMER OF 
PULLEANVERS ANG TV¥CHE Ce, tone n> 
FORMAT seCORiD 
SR lito EGCORG 
EhuPk UC 
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PROJECT: ACT MEABER: SZAREAD 
PESRARY: DSM LEVEL: 00 .02 
TYPE: PDL USZERED 2 E12Z0496 
ART : 
OL eee et na Te rt 2 a e  - 5  t- — - - 4 = == - + -- -- 
PKOC ZREAD <SEGIN DA&aTA ACCUISITIOY PROCESS> 
SREAG DATA PROM RAW STATISTICS FILE USING BRE-ISSUED REQUESTS & 
1 STAgT/STODP INTERVAL ENTZRED VIA A READ COMMANDD 
2 iy Senet TIAL ENTRY POR DATA ACOUTSITIOND>D 
3 DEN <ACCUES= SYSTEM CHARACTERISTICS> 
5 READ HEADER 
5 I? <NOT SYSTEM HEADER> 
ie MTYPEA=0 
5 THEN. <ERROR EXISTS IN PILE PFPOSMAT>D 
7 BRROE - NO SYSTEM HEADES FOUND 
5 ELSE <BEAD SIZULATION CHARACTERISTICS > 
7 KEAD FOLLOWER <KNL,KNS,CSIZ=5,CSHAPL,KNV ,KNR,SUPYPES SZM220-Z24224> 
7 CUSEC:=CSIZE/00.0 <SIMOLATATOR TIME UNIT CONVERSION FPACTOR> 
ih FILE :=TRUZ 
5 ENDIF? 
3 ELSE <DATA ACQUISITION INITIATED BY READ COMMAND> 
5 RUN SETUP <iNITIALIZE MAJOR CATAGORY S&S SUB CATAGORY TABLES> 
5 MSTsaRTs=STARTFCUSEC <CONVERT USER STARI/STOD TIME FROM HIN TO 
5 MSTOP: =STOP*CUS EC SIMULATION TIME UNITS> 
5 REWIND RAW STATISTICS PILE 
5 READ HEADER 
5 WHILE <RECULST INTERVAL NOT FOUND> 
Ti MCLOCK<SESTAST 
5 DO <SKIP TP BEGINNING OF REQUIRED INTERVAL> 
Ul EP <FOLLOWEE RSCOaDS exIst> 
g NECLE>O 
U THEN <S4ID POLLOWER RECORDS> 
3 FOR <NUSBER OF FOLLOWERS> 
11 REC=1 TQ NPOLL 
9 DOG 
11 FUN SKI>DFO 
g ENDDO 
ENDIF 
Se HEADER <READ NEXT HEADERD> 
5 <INZTIALIZE MAJOR CATAGUBY INDI eeaek TABLE (MACUTSL) > 
S WHILE <EAD OF ISTERVAL ROT SEACHED 
7 4CLOCK<=4STC2 
5 DO <PERFPORM DATA ACQUISITION Gs STORAGE> 
7 IS <RECORDS AAY BE NEEDEDD 
g een eS Rae _ 
7 THEN <IS EECORD REQULKEED> 
i) EF <NZED YOT YET DETERMINED>D 
uu Bee ee reny Set 
11 EON REQTLU <DETERAIRE I? RECORD IS REQUIRED>D 
>] EN 
9 CASZENTRY — (4ILPE) <KECORD Ti? 
Wy ASE (2) <SYSTES HRECORD> 
is RUN READO2Z 
HU CASS (2) <STATION LINK RECORD> 
13 RUN READO3 
11 CASES (3) <TRIP LINK RECORD> 
9 ENLCASE 
7, ENDIF 
7 READ NEXT HEADER 
5 ENDIF? 
3 ENDDO 
3: RUN RCLEAN <BEINITIALIZS BI STORAGE POINTERS> 
1 ENDPROC 


A-155/A-156 


efolelelelolslelelelojolalelalelolalelololel lolol ele elalolelelalolelalalalelelelelalolalelolal=) 


HDOCMNININAMNIUIE FREES 


ole al elelalelelelealele) 

PEF EWWWWWWWWWNMDPUNMN ht ID a 2 t att et ede OOOOOCOOO 
\ $B IDS et OWE SYD IVF GID ed CIO OL IO EE LIN ed 

COO GOVWVOOVQVODBDWOVOCOVCVOVOCOCOVOOVWVOCOCOOO 


eelelololelolelelelealalalealelolaleleolelalelel ole alelal ele eelelelelelalele) 


DOOBAEOOOOOOPVAOAAMNDWAIRDAMAAAANCAAOAHOOAACH AS 


MSO E WI od CO CD) UGE GUI od COL OID) 


DI ad G10 DOJO UI Wh AO 

eee appt patter ata 
lol Mlolelelaleleielelolelelolalelalelelalele) 
DOODVDOVOTOQCOOONMNOCAMOO 


OOODO00000 


ee ee 
‘Come Ge Lt em . 


NUN EEG 


‘ 


= 


mW CN 


in lie Citce, stom VEMBERS SZRECTLU ATi 
Woiemianc Vis. eM LEVELS G1.00 TiMe 
(yeu: de USISRID? FOEG547 PAGE 
tn tr tr net rn tert ast 7 


Prot nEGTLu <vATA RDWUEST/ZRECURD TYFKE CURKELATIOND 
SOLToRMIWE WhETHORK A SPECIFIC 2¢URD TYPL CAN SATISFY & FARTIC— 
YER DATA REQUEST se THUSL REGUESTS NRIGH CAN St LCATISFIEO wy 
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KEQUESTS SN SCSSEGUENT CATA RETRIEVALS WITHOUT RELUIRING A 
SEARCH CE Tre 8 =QueST TASLE> 


PeflCRs=C6 
FuRK <ALL ENTRIES IN REQUEST TABLED 
ReC=1l TO xEGNG 
Ou <CkETCRMIWE ER RECORD CAN SATISFY REQUESTS 
Le <MAIN CATAGORY MNEXONICSUCURRENT CA SAGOKY> 
FOGTELCREC sl) EMNTEL(MIYPE J 
THEN <SUSSTITUT= NUMEFIC CATAGORY IDENTIF LER FORK MNENXCNIC> 
RKREUTELCREG ss) EMTY ee 
FGR <ALL SUZ CATAGURIcsS POSSTHLE IN MAUOR CATAGOURY> 
Sissy) WoeNu GF TASLe 
TO <FINSD SULCATAGURY MNEMONIC & SUSSTITUTE NUMERIC ibs 
If <4#NEM“ONTC MATCHD> 
KEQTUL( KEUs 4 J =SNTOL( SUS) 
TPEN <SUGSTITIUTE INLEA> 
REGTAEL (FEES) FRESE 
IF <PRICR REUUELT NEECING THLS CATA FUUND> 
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END iF 
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UNTIL 
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L===SSTATE vDIRECTIOGN 


M===AS TATE 

FOx STaTFiQns 
P=== SIN CTATION 
2S==S>IN SGARD EVENT 
SS=SSrPIN CHELOARL EVENT 
4===>1N LAUNCH EVENT 

FOX STATION LINKS 
$SS=S>GN STATION LINK 


2s==>0N re 
S===FCUCVEE 


FO: TRIP LINKS 
}===>0t: TRIP LINk 


2 === >CUEVEL 


MSS=SLINK SUMBER 
OBO STEATLONS 
1< MEL FOR STATIUN LINKS 
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ENTEORING STATE 
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RUN SZSTATE 
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RUN SZSTATL 
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APPENDIX B 
HIPO DIAGRAMS 


The diagrams in this appendix illustrate the DSM high-level design 
through the use of Hierarchy plus Input-Process-Output (HIPO) diagrams. The 
Visual Table of Contents illustrates program organization and contains the 
names and identification numbers of the detail Input-Process-Output diagrams 
that define the processing to be performed. These diagrams should be used in 
conjunction with the Process Design Language (PDL) descriptions contained in 
Appendix A, which provide extended descriptions of the program design in 
greater detail. Where the Visual Table of Contents and Input-Process-Output 
diagrams reference a segment name and indentification number, that segment is 
further expanded in both an Input-Process-Output diagram (having that identi- 
fication number) and a PDL segment (having that segment name). If an Input- 
Process-Output diagram references a function by segment name only, then the 
design of that segment will be found in the PDL segment having that segment 
name. These HIPO diagrams are intended to supply a high-level introductory 
description of the processing; PDL and component descriptions provide the 
detail. 
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APPENDIX C 
REPORT OF NEW TECHNOLOGY 


The Detailed Station Model (DSM) provides operational and performance 
measures of alternative station configurations and management policies 
with respect to vehicle and passenger handling capabilities. This model 
is integrated into the set of System Operations Studies models developed 
under this contract DOT-TSC-1220; it accepts as input a stream of vehicle 
arrivals at a specified station computed by the Discrete Event Simulation 
Model. Individual passenger detailed flow is eschewed in favor of 
passenger transit times at queues. 
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